C = (0, 1, 4)
B = (4, 2, 3)
A = (4, -1, 3)
v = Vector(A, C)
u = Vector(A, B)
A1 = (0, 0, 0)
a = Vector(A1, A)
GV: a + 3 * u + 2 * v
FV: a + 3 * u - v
DV: a - 2 * u - v
Ty = Sequence(Segment[(0, t, -0.1), (0, t, 0.1)], t, 1, 6)
Tx = Sequence(Segment[(t, 0, -0.1), (t, 0, 0.1)], t, 1, 6)
Tz = Sequence(Segment[(0, -0.1, t), (0, 0.1, t)], t, 1, 6)
w1 = Vector((0, 0, 0), (0, 0, 7))
Kx = Sequence(Text[n, (n, 0)], n, 1, 6)
Ky = Sequence(Text[n, (0, n)], n, 1, 6)
d = 2 (slider from 1 to 8, step 1)
e = 4 (slider from 1 to 8, step 1)
B1: (d, 0, 0)
u1 = Vector(A1, (7, 0, 0))
v1 = Vector((0, -2, 0), (0, 7, 0))
c_1 = 0
c_2 = 0
c_3 = 0
c_4 = 0
c_5 = 0
c_6 = 0
E = Plane(A, B, C)
c_7 = 0
D: (x(DV), y(DV), z(DV))
F: (x(FV), y(FV), z(FV))
G: (x(GV), y(GV), z(GV))
Dv: a - 2 * u - v
HV: a - 2 * u + 2 * v
H: (x(HV), y(HV), z(HV))
L1 = Sequence((x(HV + u / d * t), y(HV + u / d * t), z(HV + u / d * t)), t, 0, 5 * d)
L2 = Sequence((x(DV + u / d * t), y(DV + u / d * t), z(DV + u / d * t)), t, 0, 5 * d)
L3 = Sequence(Segment[Element[L1, n], Element[L2, n]], n, 1, Length[L1])
M1 = Sequence((x(DV + v / e * t), y(DV + v / e * t), z(DV + v / e * t)), t, 0, 3 * e)
M2 = Sequence((x(FV + v / e * t), y(FV + v / e * t), z(FV + v / e * t)), t, 0, 3 * e)
M3 = Sequence(Segment[Element[M1, n], Element[M2, n]], n, 1, Length[M1])
poly1, d_1, f, g, h = Polygon(D, F, G, H)